10 POKE 53281,7:POKE53280,9:PRINT"[147]","INSTRUCTIONS Y OR N" 15 GETA$:IFA$="Y"THEN515 20 IFA$<>"N"THEN15 25 SC=1024:C=55296:B=206:E=235:SP$=" " 27 J$="":H$=LEFT$(J$,5) 30 FORT=0TO119:POKESC+T,160:POKEC+T,14:NEXT 35 FORT=880TO1000:POKESC+T,160:POKEC+T,5:NEXT 40 FORT=759TO879STEP40:POKESC+T,116:POKEC+T,0:NEXT 45 FORV=1TO5:FORT=BTOE:POKESC+T,160:POKEC+T,5:NEXT:B=B+40:E=E+40:NEXT 50 PRINTLEFT$(J$,10) 55 FORT=1TO12:PRINT,"[149][182] [146]  [146]  [146]  [146]  [146] [161]  [146]  [146][182]":NEXT 60 FORU=1TO10:READX,Y:FORT=XTOX+YSTEP40:POKESC+T,32:NEXT:NEXT 65 DATA730,120,745,120,751,120,816,40,852,0,861,0,863,0 67 DATA851,0,814,40,827,40 70 FORT=1TO35:READA,B:POKESC+A,B:POKEC+A,5:NEXT 75 DATA206,32,207,32,208,233,214,223,215,233,220,223,221,233,366,32,368,95 80 DATA224,223,225,233,233,223,234,32,235,32,245,233,276,223,285,105,316 85 DATA95,286,233,326,105,327,233,367,105,315,223,355,95,354,223,395 90 DATA32,394,95,393,223,433,95,176,233,177,160,178 92 DATA160,179,223,189,233,190,223 95 PRINT"[154]Q-MAN"TAB(32)"[154]P-BODY" 100 FORK=1TO6:READH1(K),L1(K),H2(K),L2(K):NEXT 105 DATA25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162 110 DATA42,62,31,165,50,60,37,162 115 V=53248:POKEV,0:POKEV+2,0:POKEV+21,255:POKEV+1,190 117 POKEV+3,180:POKEV+27,3 120 FORS1=12288TO12542:READQ1:POKES1,Q1:NEXT 125 FORT=41TO46:POKEV+T,2:NEXT:POKEV+39,0:POKEV+40,14 130 GOSUB575:POKES+24,15:POKES,220:POKES+1,68:POKES+5,15:POKES+6,215 135 POKES+7,120:POKES+8,100:POKES+12,15:POKES+13,215 140 X=RND(-TI):R=1:RR=1:P=192:DP=1:X=1:Z=1:W=0:POKEV+16,128 145 FORT=2042TO2047:POKET,195:NEXT 150 POKEV+5,114:POKEV+7,104:POKEV+9,109:POKEV+11,114:POKEV+13,104 155 POKEV+15,109:POKEV+4,81:POKEV+6,125:POKEV+8,166:POKEV+10,202 160 POKEV+12,237:POKEV+14,15:FORD=1TO3:GOSUB230:GOSUB260:NEXT 165 PRINT"WATCH OUT FOR COCONUTS!" 170 PRINTJ$"[156]READY":FORT=1TO500:NEXT 175 PRINTJ$"[144] GO ":POKES+4,33:FORT=1TO500:NEXT 180 POKES+4,32:PRINTJ$SP$:TI$="000000":W=TI:POKE198,0 185 IFX>315THEN420 190 IFZ>315THEN425 195 GETA$ 197 Q=TI:PRINTH$SP$H$Q-W+5 198 IFA$=""THEN195 200 IFA$="P"THENGOSUB255 205 IFA$="Q"THENGOSUB225 210 IFA$="O"THENGOSUB285 215 IFA$="W"THENGOSUB290 220 POKE198,0:GOTO185 225 Q=TI:PRINTH$SP$H$Q-W+5:IFQ-W<55THEN260 230 W=TI:FORU=1TO4:GOSUB490 235 IFP=192THENGOSUB410 240 IFP=193THENGOSUB415 245 POKE2040,P:P=P+DP:IFP<>193THENDP=-DP 250 X=X+2:NEXT:RETURN 255 Q=TI:PRINTH$SP$H$Q-W+5:IFQ-W<55THEN230 260 W=TI:FORU=1TO4:GOSUB505 265 IFP=192THENGOSUB410 270 IFP=193THENGOSUB415 275 POKE2041,P:P=P+DP:IFP<>193THENDP=-DP 280 Z=Z+2:NEXT:RETURN 285 X1=V:X2=X1+1:X3=190:X4=311:X5=253:X7=X:X8=1:GOTO295 290 X1=V+2:X2=X1+1:X3=180:X4=301:X5=254:X7=Z:X8=2 295 SX=V+4:SY=V+5:X6=PEEK(X1):IFPEEK(V+16)>128THENSY=V+15:SX=V+14:GOTO310 300 IFX6=215THENPOKEX2,X3:GOTO355 315 G=(PEEK(V+30)ANDX5):GG=GANDX8:IFG>3ANDGG<>0THEN360 320 POKESY,PEEK(SY)+4 325 IFR>7ORRR>7THEN350 330 AA=PEEK(197):IFAA=41ANDX3=180THENZ=Z+5:GOSUB500:R=R+1:NEXT 335 IFAA=62ANDX3=190THENX=X+5:GOSUB485:RR=RR+1:NEXT 340 IFAA=38ANDX3=180THENZ=Z-2:GOSUB500:NEXT:GOTO355 345 IFAA=9ANDX3=190THENX=X-2:GOSUB485:NEXT:GOTO355 350 POKESY,PEEK(SY)+4:NEXT 355 R=1:RR=1:RETURN 360 GOSUB410:FORT1=1TO18:POKESY,PEEK(SY)-1 365 POKEX2,PEEK(X2)+2:NEXT 370 IFPEEK(X2)>216THENPOKEX2,216 375 FORT1=1TO33:POKESY,PEEK(SY)+2:IFPEEK(SY)>225THENPOKESY,225 380 NEXT 385 IFX4=301THENFORT2=1TO3:GOSUB230:NEXT 390 IFX4=311THENFORT2=1TO3:GOSUB260:NEXT 395 IFR>1THENFORT5=1TOR:GOSUB505:Z=Z-6:NEXT 400 IFRR>1THENFORT5=1TORR:GOSUB490:X=X-5:NEXT 405 POKEX2,X3:R=1:RR=1:RETURN 410 POKES+4,129:POKES+4,128:RETURN 415 POKES+11,129:POKES+11,128:RETURN 420 TT$=TI$:GOSUB455:I=I+1:PRINT"";I:GOTO430 425 TT$=TI$:GOSUB455:M=M+1:PRINT"",,,"";M 430 PRINT""SPC(250),SPC(250),SPC(250),SPC(156)"TIME: ";RIGHT$(TT$,3) 435 PRINT""SPC(132)"PLAY AGAIN? Y OR N" 440 GETA$:IFA$="Y"THENPRINT""SPC(132)" ":GOTO130 445 IFA$<>"N"THEN440 450 POKE53281,11:POKE53248+21,0:GOTO63000 455 POKES+5,85:POKES+6,85:POKES+12,85:POKES+13,85:POKES+4,33:POKES+11,17 460 FORK=1TO6 465 POKES+1,H1(K):POKES,L1(K):POKES+8,H2(K):POKES+7,L2(K) 470 IFH1(K)=50THENFORT1=1TO200:NEXT 475 FORT2=1TO100:NEXT 480 NEXT:GOSUB575:RETURN 485 POKESY,PEEK(SY)+4 490 RX=INT(X/256):LX=X-RX*256 495 POKEV,LX:POKEV+16,PEEK(V+16)ORRX:RETURN 500 POKESY,PEEK(SY)+4 505 RZ=INT(Z/256):LZ=Z-RZ*256 510 POKEV+2,LZ:POKEV+16,PEEK(V+16)ORRZ*2:RETURN 515 PRINT:PRINT:PRINT:PRINT"'Q' MOVES THE BLACK SPRITE FORWARD." 520 PRINT"'W' MOVES HIM BACKWARD DURING A COCONUT" 525 PRINT" DROP. IT ALSO FIRES COCONUTS." 530 PRINT:PRINT"'P' MOVES THE BLUE SPRITE FORWARD." 535 PRINT"'O' MOVES HIM BACKWARD DURING A COCONUT" 540 PRINT" DROP. IT ALSO FIRES COCONUTS." 545 PRINT:PRINT"THERE IS A ONE-SECOND INTERVAL BETWEEN" 550 PRINT"SPRITE ADVANCES. DON'T PRESS TOO SOON--" 555 PRINT"THE JIFFY TIMER UPPER LEFT MUST READ" 557 PRINT"60 OR YOUR OPPONENT ADVANCES." 560 PRINT:PRINT"PRESS ANY KEY TO CONTINUE" 565 GETA$:IFA$=""THEN565 570 IFA$<>""THENPRINT"[147]":GOTO25 575 S=54272:FORT=STOS+24:POKET,0:NEXT:RETURN 580 DATA3,254,0,30,31,224,48,255,159,99,252,158,103,252,240,111,255,192,103,255 585 DATA0,99,252,0,51,240,0,27,88,0,28,255,128,48,239,248,33,225 587 DATA255,1,224,15,3,192,30,7,128,60,7,128,96,15,0,252,12,1,248 590 DATA31,128,0,31,128,0,0,1,255,0,15,207,224,28,255,152,51,249,159 595 DATA103,249,255,111,255,254,103,254,0,39,224,0,54,12,0,112,124 600 DATA0,192,126,0,0,126,0,0,94,0,0,94,0,0,95,0,0,223,0,0,223,0,0 605 DATA223,0,1,220,0,1,223,224,1,223,224,0,0,248,0,2,255,0,5,255,128 610 DATA9,255,224,19,255,240,27,255,240,27,255,254,27,255,255,63,254 615 DATA0,252,0,0,0,62,0,0,62,0,0,62,0,0,125,0,1,252,128,3,231,192,255 620 DATA195,192,255,131,192,224,3,0,192,3,240,0,3,240,0,0,0,0,0,0,0,0,0 625 DATA0,0,0,0,0,0,0,0,253,0,3,143,192,7,15,240,14,31,248,31,255,252 630 DATA111,255,251,56,255,134,15,0,120,7,255,240,3,255,224,0,255 635 DATA128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 63000 REM RECONNECT TO L.S. 63010 LOAD"PAYLOAD CONNECT",8